home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / DEFS1.FAS < prev    next >
Text File  |  1994-02-05  |  22KB  |  413 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (DOSEQ DOHASH *DEFAULT-TIME-ZONE* DEFAULT-DIRECTORY DIR)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) COPY-SYMBOL
  8.    REMOVE-OLD-DEFINITIONS
  9.    #Y(COPY-SYMBOL
  10.       #47Y(01 00 01 00 00 08 3C 01 A9 6E 7E 6D CA 8F 02 1C AA 89 50 06 A7 AB 6D 4F 30 53 AA 89 51
  11.            06 A7 9C 59 14 31 74 A7 AB 6E 7D 6D 9E 31 79 15 19 03
  12.   )  )    )
  13. #Y(#:TOP-LEVEL-FORM-5
  14.    #26Y(00 00 00 00 00 01 00 2A 01 C0 0B 00 00 D6 2E 02 D6 A8 69 03 01 31 74 C1 19 02) 0. GENTEMP
  15.    REMOVE-OLD-DEFINITIONS
  16.    #Y(GENTEMP
  17.       #55Y(00 00 02 00 00 0C 3A 02 02 C1 F8 3A 01 07 0E 02 F7 1A 02 16 02 65 00 01 31 89 0C 00 01
  18.            A9 65 00 01 37 0B C3 FA 79 05 6D 85 6F 02 13 A9 30 D3 41 02 8E 00 5F 99 19 05
  19.           )
  20.       NIL "T" *PACKAGE* 10.
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-6 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DO-SYMBOLS
  23.    REMOVE-OLD-DEFINITIONS MACRO
  24.    #Y(DO-SYMBOLS
  25.       #137Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 5B 9A 57 56 74 9B 57 56 57 1B 80 55 C2
  26.             14 9C 57 56 57 57 1B 80 53 00 14 9D 57 75 A7 5F AE 30 60 41 02 37 01 6E 82 D8 5F D9 AA
  27.             B0 77 02 77 01 D9 B2 C5 76 77 01 DB DC B5 77 02 A1 78 02 DD DE DF B7 77 01 8E 0C 2C 00
  28.             14 B5 32 02 20 78 02 77 02 B0 77 03 B3 77 05 77 03 5C 03 19 0A A9 2E 01 19 03 9B 57 56
  29.             57 56 1A FF A4 9C 57 56 57 57 56 1A FF A5 DB A5 76 5C 01 1A 4E
  30.            )
  31.       2. MACRO-CALL-ERROR *PACKAGE* BLOCK LET (NIL) DECLARE IGNORABLE MAP-SYMBOLS FUNCTION LAMBDA
  32.   )  )
  33. #Y(#:TOP-LEVEL-FORM-7 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  34.    DO-EXTERNAL-SYMBOLS REMOVE-OLD-DEFINITIONS MACRO
  35.    #Y(DO-EXTERNAL-SYMBOLS
  36.       #137Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 5B 9A 57 56 74 9B 57 56 57 1B 80 55 C2
  37.             14 9C 57 56 57 57 1B 80 53 00 14 9D 57 75 A7 5F AE 30 60 41 02 37 01 6E 82 D8 5F D9 AA
  38.             B0 77 02 77 01 D9 B2 C5 76 77 01 DB DC B5 77 02 A1 78 02 DD DE DF B7 77 01 8E 0C 2C 00
  39.             14 B5 32 02 20 78 02 77 02 B0 77 03 B3 77 05 77 03 5C 03 19 0A A9 2E 01 19 03 9B 57 56
  40.             57 56 1A FF A4 9C 57 56 57 57 56 1A FF A5 DB A5 76 5C 01 1A 4E
  41.            )
  42.       2. MACRO-CALL-ERROR *PACKAGE* BLOCK LET (NIL) DECLARE IGNORABLE MAP-EXTERNAL-SYMBOLS FUNCTION
  43.       LAMBDA
  44.   )  )
  45. #Y(#:TOP-LEVEL-FORM-8 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DO-ALL-SYMBOLS
  46.    REMOVE-OLD-DEFINITIONS MACRO
  47.    #Y(DO-ALL-SYMBOLS
  48.       #103Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 42 9A 57 56 74 9B 57 56 57 1B 3D 00 14
  49.             9C 57 75 A7 5F AD 30 60 41 02 D7 5F D8 AE C4 76 77 01 DA DB B1 77 02 9E 78 02 DC DD DE
  50.             B3 77 01 8E 09 20 00 14 B2 32 02 20 78 02 77 02 77 02 B0 77 05 5C 03 19 08 A9 2E 01 19
  51.             03 9B 57 56 57 56 1A FF BC DA A2 76 5C 01 1A 5A
  52.            )
  53.       2. MACRO-CALL-ERROR BLOCK LET (NIL) DECLARE IGNORABLE MAP-ALL-SYMBOLS FUNCTION LAMBDA
  54.   )  )
  55. #Y(#:TOP-LEVEL-FORM-9 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 5F 30 53 C1 19 01)
  56.    (SPECIAL *MODULES*) *MODULES*
  57.   )
  58. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) PROVIDE
  59.    REMOVE-OLD-DEFINITIONS
  60.    #Y(PROVIDE #20Y(01 00 00 00 00 02 A8 6D 4C 67 00 D6 37 02 30 B7 0F 00 19 02) *MODULES*
  61.       #.#'STRING=
  62.   )  )
  63. #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) REQUIRE
  64.    REMOVE-OLD-DEFINITIONS
  65.    #Y(REQUIRE
  66.       #48Y(01 00 01 00 00 08 3B 01 14 3C 02 AA 6D 4C 67 00 D6 37 02 88 B3 12 8E 00 04 AA 7C E4 02
  67.            9A 1F 0B 95 02 AA 32 00 17 19 04 00 19 04 A9 2E 02 19 04
  68.           )
  69.       *MODULES* #.#'STRING-EQUAL LOAD
  70.   )  )
  71. #Y(#:TOP-LEVEL-FORM-12
  72.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-CLR
  73.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-CLR 0.) WARN 0.
  74.   )
  75. #Y(#:TOP-LEVEL-FORM-13
  76.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-SET
  77.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-SET 15.) WARN 15.
  78.   )
  79. #Y(#:TOP-LEVEL-FORM-14
  80.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-1
  81.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-1 10.) WARN 10.
  82.   )
  83. #Y(#:TOP-LEVEL-FORM-15
  84.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-2
  85.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-2 12.) WARN 12.
  86.   )
  87. #Y(#:TOP-LEVEL-FORM-16
  88.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-C1
  89.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-C1 5.) WARN 5.
  90.   )
  91. #Y(#:TOP-LEVEL-FORM-17
  92.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-C2
  93.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-C2 3.) WARN 3.
  94.   )
  95. #Y(#:TOP-LEVEL-FORM-18
  96.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-AND
  97.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-AND 8.) WARN 8.
  98.   )
  99. #Y(#:TOP-LEVEL-FORM-19
  100.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-IOR
  101.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-IOR 14.) WARN 14.
  102.   )
  103. #Y(#:TOP-LEVEL-FORM-20
  104.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-XOR
  105.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-XOR 6.) WARN 6.
  106.   )
  107. #Y(#:TOP-LEVEL-FORM-21
  108.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-EQV
  109.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-EQV 9.) WARN 9.
  110.   )
  111. #Y(#:TOP-LEVEL-FORM-22
  112.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-NAND
  113.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-NAND 7.) WARN 7.
  114.   )
  115. #Y(#:TOP-LEVEL-FORM-23
  116.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-NOR
  117.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-NOR 1.) WARN 1.
  118.   )
  119. #Y(#:TOP-LEVEL-FORM-24
  120.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-ANDC1
  121.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-ANDC1 4.) WARN 4.
  122.   )
  123. #Y(#:TOP-LEVEL-FORM-25
  124.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-ANDC2
  125.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-ANDC2 2.) WARN 2.
  126.   )
  127. #Y(#:TOP-LEVEL-FORM-26
  128.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-ORC1
  129.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-ORC1 13.) WARN 13.
  130.   )
  131. #Y(#:TOP-LEVEL-FORM-27
  132.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01) BOOLE-ORC2
  133.    "~S redefines the constant ~S. Its old value was ~S." (DEFCONSTANT BOOLE-ORC2 11.) WARN 11.
  134.   )
  135. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MAKE-BYTE
  136.    REMOVE-OLD-DEFINITIONS
  137.    #Y(MAKE-BYTE #20Y(00 00 00 00 80 1B 02 00 00 00 3C 02 3C 01 A9 A9 31 C7 19 03) :SIZE :POSITION)
  138.   )
  139. #Y(#:TOP-LEVEL-FORM-29
  140.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  141.    CHAR-CODE-LIMIT "~S redefines the constant ~S. Its old value was ~S."
  142.    (DEFCONSTANT CHAR-CODE-LIMIT 256.) WARN 256.
  143.   )
  144. #Y(#:TOP-LEVEL-FORM-30
  145.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  146.    CHAR-FONT-LIMIT "~S redefines the constant ~S. Its old value was ~S."
  147.    (DEFCONSTANT CHAR-FONT-LIMIT 16.) WARN 16.
  148.   )
  149. #Y(#:TOP-LEVEL-FORM-31
  150.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  151.    CHAR-BITS-LIMIT "~S redefines the constant ~S. Its old value was ~S."
  152.    (DEFCONSTANT CHAR-BITS-LIMIT 16.) WARN 16.
  153.   )
  154. #Y(#:TOP-LEVEL-FORM-32
  155.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  156.    CHAR-CONTROL-BIT "~S redefines the constant ~S. Its old value was ~S."
  157.    (DEFCONSTANT CHAR-CONTROL-BIT 1.) WARN 1.
  158.   )
  159. #Y(#:TOP-LEVEL-FORM-33
  160.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  161.    CHAR-META-BIT "~S redefines the constant ~S. Its old value was ~S."
  162.    (DEFCONSTANT CHAR-META-BIT 2.) WARN 2.
  163.   )
  164. #Y(#:TOP-LEVEL-FORM-34
  165.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  166.    CHAR-SUPER-BIT "~S redefines the constant ~S. Its old value was ~S."
  167.    (DEFCONSTANT CHAR-SUPER-BIT 4.) WARN 4.
  168.   )
  169. #Y(#:TOP-LEVEL-FORM-35
  170.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  171.    CHAR-HYPER-BIT "~S redefines the constant ~S. Its old value was ~S."
  172.    (DEFCONSTANT CHAR-HYPER-BIT 8.) WARN 8.
  173.   )
  174. #Y(#:TOP-LEVEL-FORM-36 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DOSEQ
  175.    REMOVE-OLD-DEFINITIONS MACRO
  176.    #Y(DOSEQ
  177.       #118Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 59 9A 57 56 74 9B 57 56 57 74 9C 57 56
  178.             57 57 74 9D 57 75 A7 5F AE 30 60 41 02 37 01 6E 82 D7 5F D8 AA B0 77 02 77 01 D8 B2 C4
  179.             76 77 01 DA DB B5 77 02 A1 78 02 DC 5F DD DE B8 77 01 8E 0D 20 00 14 DF 04 10 76 77 01
  180.             32 02 20 78 02 77 02 B1 77 04 B3 77 05 77 03 5C 03 19 0A A9 2E 01 19 03 DA A6 76 5C 01
  181.             1A 5A
  182.            )
  183.       2. MACRO-CALL-ERROR BLOCK LET (NIL) DECLARE IGNORABLE MAP FUNCTION LAMBDA TAGBODY
  184.   )  )
  185. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MEMBER1
  186.    REMOVE-OLD-DEFINITIONS
  187.    #Y(MEMBER1
  188.       #35Y(02 00 00 00 81 00 03 00 00 00 3A 01 07 79 01 8F 01 05 1A 05 8E 01 02 C3 F7 D9 A9 AF 72
  189.            01 AE 9F 97 02 07
  190.           )
  191.       :TEST :TEST-NOT :KEY #.#'IDENTITY #.#'MEMBER
  192.   )  )
  193. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UNION
  194.    REMOVE-OLD-DEFINITIONS
  195.    #Y(UNION
  196.       #49Y(02 00 00 00 81 00 03 00 00 00 AD 88 92 17 95 03 90 07 AE 9F 36 02 1B 10 90 06 95 04 91
  197.            08 AF A0 36 02 58 19 07 9D 19 07 95 04 91 07 AE 9F 97 02 07
  198.           )
  199.       :TEST :TEST-NOT :KEY MEMBER1 UNION
  200.   )  )
  201. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NUNION
  202.    REMOVE-OLD-DEFINITIONS
  203.    #Y(NUNION
  204.       #49Y(02 00 00 00 81 00 03 00 00 00 AD 88 92 17 95 03 90 07 AE 9F 36 02 1B 10 AD 95 04 91 08
  205.            AF A0 73 02 30 A9 19 07 9D 19 07 95 04 91 07 AE 9F 97 02 07
  206.           )
  207.       :TEST :TEST-NOT :KEY MEMBER1 NUNION
  208.   )  )
  209. #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INTERSECTION
  210.    REMOVE-OLD-DEFINITIONS
  211.    #Y(INTERSECTION
  212.       #49Y(02 00 00 00 81 00 03 00 00 00 AD 88 92 13 95 03 90 07 AE 9F 36 02 1B 0C 95 04 91 07 AE
  213.            9F 97 02 07 00 19 07 90 06 95 04 91 08 AF A0 36 02 58 19 07
  214.           )
  215.       :TEST :TEST-NOT :KEY MEMBER1 INTERSECTION
  216.   )  )
  217. #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NINTERSECTION
  218.    REMOVE-OLD-DEFINITIONS
  219.    #Y(NINTERSECTION
  220.       #49Y(02 00 00 00 81 00 03 00 00 00 AD 88 92 13 95 03 90 07 AE 9F 36 02 1B 0C 95 04 91 07 AE
  221.            9F 97 02 07 00 19 07 AD 95 04 91 08 AF A0 73 02 30 A9 19 07
  222.           )
  223.       :TEST :TEST-NOT :KEY MEMBER1 NINTERSECTION
  224.   )  )
  225. #Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-DIFFERENCE
  226.    REMOVE-OLD-DEFINITIONS
  227.    #Y(SET-DIFFERENCE
  228.       #49Y(02 00 00 00 81 00 03 00 00 00 AD 88 92 13 95 03 90 07 AE 9F 36 02 1C 0C 95 04 91 07 AE
  229.            9F 97 02 07 00 19 07 90 06 95 04 91 08 AF A0 36 02 58 19 07
  230.           )
  231.       :TEST :TEST-NOT :KEY MEMBER1 SET-DIFFERENCE
  232.   )  )
  233. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NSET-DIFFERENCE
  234.    REMOVE-OLD-DEFINITIONS
  235.    #Y(NSET-DIFFERENCE
  236.       #49Y(02 00 00 00 81 00 03 00 00 00 AD 88 92 13 95 03 90 07 AE 9F 36 02 1C 0C 95 04 91 07 AE
  237.            9F 97 02 07 00 19 07 AD 95 04 91 08 AF A0 73 02 30 A9 19 07
  238.           )
  239.       :TEST :TEST-NOT :KEY MEMBER1 NSET-DIFFERENCE
  240.   )  )
  241. #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SET-EXCLUSIVE-OR
  242.    REMOVE-OLD-DEFINITIONS
  243.    #Y(SET-EXCLUSIVE-OR
  244.       #29Y(02 00 00 00 81 00 03 00 00 00 95 03 AE AE 9F 73 02 95 03 AE B0 A0 73 02 32 02 20 19 07)
  245.       :TEST :TEST-NOT :KEY SET-DIFFERENCE
  246.   )  )
  247. #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NSET-EXCLUSIVE-OR
  248.    REMOVE-OLD-DEFINITIONS
  249.    #Y(NSET-EXCLUSIVE-OR
  250.       #29Y(02 00 00 00 81 00 03 00 00 00 95 03 AE AE 9F 73 02 95 04 AE B0 A0 73 02 32 02 21 19 07)
  251.       :TEST :TEST-NOT :KEY SET-DIFFERENCE NSET-DIFFERENCE
  252.   )  )
  253. #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SUBSETP
  254.    REMOVE-OLD-DEFINITIONS
  255.    #Y(SUBSETP
  256.       #35Y(02 00 00 00 81 00 03 00 00 00 AD 1A 0F 00 19 08 95 03 90 01 AF A0 36 02 1C 73 7F 00 A7
  257.            89 92 70 02 19 08
  258.           )
  259.       :TEST :TEST-NOT :KEY MEMBER1
  260.   )  )
  261. #Y(#:TOP-LEVEL-FORM-47 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DOHASH
  262.    REMOVE-OLD-DEFINITIONS MACRO
  263.    #Y(DOHASH
  264.       #129Y(01 00 01 00 00 08 3C 01 A9 6E 41 D5 8C 01 2D 80 64 9A 57 56 74 9B 57 56 57 74 9C 57 56
  265.             57 57 74 9D 57 56 57 57 57 74 9E 57 75 A7 5F AF 30 60 41 02 37 01 6E 82 D7 5F D8 AA B0
  266.             77 02 77 01 D8 B3 C4 76 B3 C5 76 77 02 DB DC B6 B6 77 03 A1 78 02 DD DE DF B8 B8 77 02
  267.             8E 0C 20 00 14 E0 04 0F 76 77 01 32 02 20 78 02 77 02 B0 77 03 B3 77 05 77 03 5C 03 19
  268.             0B A9 2E 01 19 03 DB A5 76 5C 01 1A 5A
  269.            )
  270.       2. MACRO-CALL-ERROR BLOCK LET (NIL) (NIL) DECLARE IGNORABLE MAPHASH FUNCTION LAMBDA TAGBODY
  271.   )  )
  272. #Y(#:TOP-LEVEL-FORM-48 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STRING-TRIM
  273.    REMOVE-OLD-DEFINITIONS #Y(STRING-TRIM #13Y(02 00 00 00 00 03 A9 AA AA 30 45 19 03))
  274.   )
  275. #Y(#:TOP-LEVEL-FORM-49 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STRING-LEFT-TRIM
  276.    REMOVE-OLD-DEFINITIONS #Y(STRING-LEFT-TRIM #13Y(02 00 00 00 00 03 A9 5F AA 30 45 19 03))
  277.   )
  278. #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) STRING-RIGHT-TRIM
  279.    REMOVE-OLD-DEFINITIONS #Y(STRING-RIGHT-TRIM #13Y(02 00 00 00 00 03 5F AA AA 30 45 19 03))
  280.   )
  281. #Y(#:TOP-LEVEL-FORM-51 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) %TIME
  282.    REMOVE-OLD-DEFINITIONS
  283.    #Y(%TIME
  284.       #210Y(12 00 00 00 00 00 B9 D5 D5 6E C7 BA 6E CD B1 D5 D5 6E C7 B2 6E CD 6F 01 34 B8 D5 D5 6E
  285.             C7 B9 6E CD B0 D5 D5 6E C7 B1 6E CD 6F 01 34 B7 D5 D5 6E C7 B8 6E CD AF D5 D5 6E C7 B0
  286.             6E CD 6F 01 34 B6 D6 D6 6E C7 B7 6E CD AE D6 D6 6E C7 AF 6E CD 6F 01 34 B5 AD 6F 01 34
  287.             37 01 30 8B D7 37 03 30 89 AB D8 6F 01 36 37 01 6E A1 37 0C 30 80 D9 37 03 30 89 37 01
  288.             30 8B DA 37 03 30 89 AA D8 6F 01 36 37 01 6E A1 37 0C 30 80 DB 37 03 30 89 37 01 30 8B
  289.             DC 37 03 30 89 A8 37 0C 30 80 DD 37 03 30 89 A7 8A 85 07 A9 8A 85 03 00 19 18 37 01 30
  290.             8B DE 37 03 30 89 A7 37 0C 30 80 DF 37 03 30 89 A9 D8 6F 01 36 37 01 6E A1 37 0C 30 80
  291.             E0 37 03 30 89 19 18
  292.            )
  293.       16. 24. "Real time: " #.INTERNAL-TIME-UNITS-PER-SECOND " sec." "Run time: " " sec." "Space: "
  294.       " Bytes" "GC: " ", GC time: " " sec."
  295.   )  )
  296. #Y(#:TOP-LEVEL-FORM-52 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SLEEP
  297.    REMOVE-OLD-DEFINITIONS
  298.    #Y(SLEEP
  299.       #47Y(01 00 00 00 00 02 A8 8B 05 20 A8 8A 12 1C A8 8A 86 18 A8 D5 8C 01 2E 0D A8 D7 6F 02 35
  300.            37 01 6E A9 30 C8 19 02 D6 30 C8 1A 7B D8 D9 AA 5E 02
  301.           )
  302.       #.(FLOOR (EXPT 2. 31.) INTERNAL-TIME-UNITS-PER-SECOND)
  303.       #.(* 86400. INTERNAL-TIME-UNITS-PER-SECOND) #.INTERNAL-TIME-UNITS-PER-SECOND
  304.       "~S: argument ~S should be a nonnegative number" SLEEP
  305.   )  )
  306. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) UTAG
  307.    REMOVE-OLD-DEFINITIONS
  308.    #Y(UTAG
  309.       #32Y(01 00 00 00 00 02 D5 D6 AA 6F 02 35 AA D7 6E A6 AB D8 6E A6 6F 00 34 AC D9 6E A6 32 05
  310.            33 19 02
  311.           )
  312.       -693901. 365. 4. 100. 400.
  313.   )  )
  314. #Y(#:TOP-LEVEL-FORM-54 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) JAHR&TAG
  315.    REMOVE-OLD-DEFINITIONS
  316.    #Y(JAHR&TAG
  317.       #43Y(01 00 00 00 00 02 D5 D6 AA 6F 02 33 D7 6E A6 6F 02 33 A7 6B 03 AA A8 8D 01 2D 06 82 01
  318.            14 2E 03 F6 A8 AB A9 6F 01 34 3F 02 19 04
  319.           )
  320.       1900. -58. #10r146097/400 UTAG
  321.   )  )
  322. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) NONE-SOMMERZEIT-P
  323.    REMOVE-OLD-DEFINITIONS #Y(NONE-SOMMERZEIT-P #9Y(03 00 00 00 00 04 00 19 04))
  324.   )
  325. #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MET-SOMMERZEIT-P
  326.    REMOVE-OLD-DEFINITIONS
  327.    #Y(MET-SOMMERZEIT-P
  328.       #43Y(03 00 00 00 00 04 D5 AB D6 32 02 2F 1E 1B D7 AA 6F 02 35 A9 6F 02 33 D8 D9 AD 32 02 33
  329.            5A 14 90 00 A9 91 02 32 02 2F 19 06 19 04
  330.           )
  331.       1980. 2000. 24.
  332.       #((698. . 5065.) (674. . 5041.) (650. . 5017.) (626. . 4993.) (578. . 5113.) (722. . 5089.)
  333.         (698. . 5065.) (674. . 5041.) (626. . 4993.) (602. . 4969.) (578. . 5113.) (722. . 5089.)
  334.         (674. . 5041.) (650. . 5017.) (626. . 4993.) (602. . 4969.) (722. . 5089.) (698. . 5065.)
  335.         (674. . 5041.) (650. . 5017.) (602. . 4969.)
  336.        )
  337.       -1980.
  338.   )  )
  339. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) USA-SOMMERZEIT-P
  340.    REMOVE-OLD-DEFINITIONS
  341.    #Y(USA-SOMMERZEIT-P #14Y(03 00 00 00 00 04 D5 AA D6 32 02 2F 19 04) 31. 244.)
  342.   )
  343. #Y(#:TOP-LEVEL-FORM-58 #20Y(00 00 00 00 00 01 D5 30 5B D6 88 50 04 D6 D7 30 53 C1 19 01)
  344.    (SPECIAL *DEFAULT-TIME-ZONE*) *DEFAULT-TIME-ZONE* -1.
  345.   )
  346. #Y(#:TOP-LEVEL-FORM-59 #21Y(00 00 00 00 00 01 D5 30 5B D6 88 50 05 D6 95 02 30 53 C1 19 01)
  347.    (SPECIAL *DEFAULT-DST-CHECK*) *DEFAULT-DST-CHECK* MET-SOMMERZEIT-P
  348.   )
  349. #Y(#:TOP-LEVEL-FORM-60-1 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 3D 19 01)
  350.    ENCODE-UNIVERSAL-TIME REMOVE-OLD-DEFINITIONS
  351.    #Y(ENCODE-UNIVERSAL-TIME
  352.       #279Y(06 00 01 00 00 00 3C 01 01 04 AD 8B 09 80 FE D5 AE D6 8D 02 2F 18 2D 02 41 06 B3 D8 A9
  353.             D9 B7 6F 02 34 D8 6E A7 6F 02 35 7E 02 33 0C 16 06 DA AE 8D 01 2F 80 D8 AE 8B 09 80 D3
  354.             DB AF DC 8D 02 2F 80 CB AE DD 8C 01 2D 80 AF 9E F8 CA 14 AF 7E 02 33 03 AF 8B 09 80 B6
  355.             DB B0 8D 01 2F 80 AF 93 08 E0 9D 5A 14 7E 02 33 01 14 AA 6B 0C 7E 02 33 00 AA 24 0D 80
  356.             8B A7 92 03 2E 0C 14 8D 01 2D 80 8D B0 8B 09 80 88 D5 B1 E3 8D 02 2F 80 80 B1 8B 09 80
  357.             7B D5 B2 E4 8D 02 2F 80 73 B2 8B 09 80 6E D5 B3 E4 8D 02 2F 80 66 8E 05 12 67 10 67 11
  358.             AB AB B4 35 03 1B 80 53 C0 14 7E 01 34 05 AC 8B 0C 04 AC 7D A2 05 AC 8A 09 0D AC 8B 0B
  359.             80 40 E7 AD 6F 02 35 8B 09 38 E8 AD DC 8D 02 2F 31 B2 EA B3 EA B4 B1 EB AE 6F 02 35 6F
  360.             03 33 6F 02 35 6F 02 33 6F 02 35 32 02 33 19 0C AD 7D 8A 02 C9 1A FF 4C A8 E0 AC 31 89
  361.             5A 1A FF 71 C6 1A FF AA E9 B0 B0 B0 B4 B6 B8 B3 5E 07
  362.            )
  363.       0. 99. GET-DECODED-TIME 100. 50. 1900. 1. 12. 3. 9. -3.
  364.       #(0. 31. 61. 92. 122. 153. 184. 214. 245. 275. 306. 337.) UTAG 11. 23. 59.
  365.       *DEFAULT-TIME-ZONE* *DEFAULT-DST-CHECK* 3600. -12.
  366.       "incorrect date: ~S.~S.~S, ~Sh~Sm~Ss, time zone ~S" 60. 24.
  367.   )  )
  368. #Y(#:TOP-LEVEL-FORM-60-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  369.    DECODE-UNIVERSAL-TIME REMOVE-OLD-DEFINITIONS
  370.    #Y(DECODE-UNIVERSAL-TIME
  371.       #172Y(01 00 01 00 00 08 3C 01 01 02 8E 03 80 8B 0E 00 F9 AB D6 AC 6F 02 35 37 01 6E A9 6F 01
  372.             34 A7 D6 6E A6 D7 31 A6 41 02 A8 2E 03 41 02 67 04 A9 A9 AC 35 03 16 05 F7 AA 8E 02 80
  373.             65 C6 14 7E 01 34 00 AB D6 A9 6F 02 35 37 01 6E A9 6F 01 34 A7 DC 31 A6 41 02 A8 DC 31
  374.             A6 41 02 A8 D7 31 A6 41 02 A8 2E 03 41 02 DD DE A9 6F 02 35 6F 02 33 DF 6E A6 A8 E0 9A
  375.             5A 14 6F 01 34 6E 89 A8 E1 8C 01 2D 23 E3 A9 7E 02 33 01 81 03 AF AE AD AA AC AF B2 E4
  376.             6E AA BA BD 3F 09 19 10 79 01 9B F6 1A FF A1 C5 1A FF 98 E2 A9 7E 02 33 01 1A 5D
  377.            )
  378.       *DEFAULT-TIME-ZONE* 3600. 24. JAHR&TAG *DEFAULT-DST-CHECK* 1. 0. 60. 2. 5. 153.
  379.       #(0. 31. 61. 92. 122. 153. 184. 214. 245. 275. 306. 337.) 10. 3. -9. 7.
  380.   )  )
  381. #Y(#:TOP-LEVEL-FORM-61 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) GET-DECODED-TIME
  382.    REMOVE-OLD-DEFINITIONS
  383.    #Y(GET-DECODED-TIME #12Y(00 00 00 00 00 01 6D C5 2E 00 19 01) DECODE-UNIVERSAL-TIME)
  384.   )
  385. #Y(#:TOP-LEVEL-FORM-62 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) CONCAT-PNAMES
  386.    REMOVE-OLD-DEFINITIONS
  387.    #Y(CONCAT-PNAMES
  388.       #45Y(02 00 00 00 00 03 A9 6D 4C A9 6D 4C 6F 02 13 A7 6E 41 8B 85 07 A7 D5 6D 32 23 01 07 A7
  389.            37 01 30 D3 19 04 A7 D7 37 01 6E 3F 67 03 1A 72
  390.           )
  391.       0. #\: 1. *KEYWORD-PACKAGE*
  392.   )  )
  393. #Y(#:TOP-LEVEL-FORM-63 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DEFAULT-DIRECTORY
  394.    REMOVE-OLD-DEFINITIONS #Y(DEFAULT-DIRECTORY #12Y(00 00 00 00 00 01 37 01 30 F8 19 01))
  395.   )
  396. #Y(#:TOP-LEVEL-FORM-64
  397.    #26Y(00 00 00 00 00 01 D5 89 5F 09 D6 D7 D5 D5 6D 4F 2C 04 03 D5 D9 31 75 C0 19 01)
  398.    *DATE-FORMAT* "~S redefines the constant ~S. Its old value was ~S."
  399.    (DEFCONSTANT *DATE-FORMAT* #1="~1{~5@*~D/~4@*~D/~3@*~D ~2@*~2,'0D.~1@*~2,'0D.~0@*~2,'0D~:}")
  400.    WARN #1#
  401.   )
  402. #Y(#:TOP-LEVEL-FORM-65 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DIR
  403.    REMOVE-OLD-DEFINITIONS
  404.    #Y(DIR #28Y(00 00 01 00 00 07 3A 01 02 C0 F7 A8 8A 08 06 A8 C1 33 3D 19 02 D6 A9 32 00 19 1A 76)
  405.       ("*/" "*")
  406.       #Y(LISP::DIR-ONEDIR
  407.          #38Y(01 00 00 00 00 02 A8 60 6D F7 D5 A8 8C 00 26 0F 60 DA A9 D7 C6 14 37 02 6E 61 2C 03
  408.               04 19 03 60 D6 A9 D7 C3 1A 6F
  409.              )
  410.          #.#'ATOM "~{~%~A~}" #.#'STRING< #.#'NAMESTRING FORMAT
  411.          #.(CONCATENATE 'STRING "~:{~%~0@*~A~40T~3@*~7D~52T~2@*~21<" *DATE-FORMAT* "~>~}")
  412.          #Y(LISP::DIR-ONEDIR-1 #12Y(01 00 00 00 00 02 90 01 30 F1 19 02))
  413.   )  )  )